home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk UserVolume 4 #7
/
Commodore_Disk_User_Vol.4_7_1991_-.d64
/
disk sleeve make
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
64 lines
10 dimp$(24)
20 poke53280,0:poke53281,0
30 gosub 160
40 open4,4,7
50 print#4,"[176][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][174]"
60 print#4,"[221] [221]"+n$+"[221] [221]"
70 print#4,"[221] [221] [221] [221]"
80 forl=0 to 21:print#4,"[221] [221]"+p$(l)+"[221] [221]":next
90 print#4,"[173][192][192][192][192][192][192][179] [171][192][192][192][192][192][192][189]"
100 print#4," [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
110 forl=1 to 28
120 print#4," [221] [221]"
130 next
140 print#4," [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
150 close4:return
160 print"[147][196][201][211][203][160][211][204][197][197][214][197][160][205][193][203][197][210]"
170 print"by [211][212][197][214][197][206][160][194][213][210][199][197][211][211]"
180 print"for [195][207][205][205][207][196][207][210][197][160][196][201][211][203][160][213][211][197][210]"
190 print"[205][197][206][213]"
200 print"1..[197][206][212][197][210][160][208][210][207][199][210][193][205][211]"
210 print"2..[208][210][201][206][212][160][211][204][197][197][214][197]"
220 print"3..[197][206][196]
230 [153]"(NULL)val(NULL)vallen(NULL)close(NULL)(NULL)(NULL)right$(NULL)(NULL)"
240 [161]a$:[139]a$[178]""[167]240
250 [139] a$[179]"1" [176] a$[177]"3"[167]240
260 [139] a$[178]"3"[167] [153]"load":[128]
270 [139] a$[178]"1"[167] [141]310
280 [139] a$[178]"2"[175] se[178]0 [167] [153]"load(NULL)(NULL)close(NULL)(NULL)(NULL)chr$(NULL)closeval(NULL)(NULL)val(NULL)valstr$":[129]l[178]1[164]1000:[130]:[138]
290 [139] a$[178]"2"[175] se[178]1 [167] [141]40
300 [137] 160
310 [153]"load";:[159]15,8,15
320 [159]8,8,8,"#"
330 [152]15,"u1";8;0;18;0
340 [152]15,"b-p";8;144
350 [129]l[178]1 [164] 16:[161]#8,a$:n$[178]n$[170]a$:[130]
360 [153]"str$right$(NULL)(NULL)close(NULL)atn(NULL)val:"n$
370 [139] [195](n$)[179]54 [167] n$[178]n$[170]" ":[137] 370
380 tr[178]18:se[178]1
390 [152]15,"u1";8;0;tr;se:[152]15,"b-p";8;0
400 [161]#8,tr$:[161]#8,s$
401 [139] tr$[178]""[167]tr$[178][199](0)
410 [153]"(NULL)(NULL)(NULL)chr$close(NULL)right$(NULL)(NULL)"
420 [153]"---------"
430 [152]15,"u1";8;0;tr;se
440 [129]l[178]1 [164] 8
450 [152]15,"b-p";8,((l[171]1)[172]32)[170]5
460 [129]s[178]1 [164] 16:[161]#8,a$:f$[178]f$[170]a$ :[130]
470 [139] f$[178]""[167] 540
480 [153]"load"f$
490 [153]"include in list (y/n)"
500 [161]a$:[139]a$[178]""[167]500
510 [139] a$[178]"n"[167] 540
520 [139] a$[179][177]"y"[167] 500
530 [139][195](p$(w))[179]37[167]p$(w)[178]p$(w)[170]f$[170]" ":[137] 540
535 [139] [195](p$(w))[177]37 [167] w[178]w[170]1:[137] 530
540 f$[178]"":[130]
550 tr[178][198](tr$):se[178][198](s$):
560 [139] tr[178]0 [175] se[178]255 [167] [137] 580
570 [137] 390
580 [153]"load(NULL)(NULL)valatn(NULL)valclose(NULL)atnright$(NULL)close: asc(NULL)(NULL)(NULL)atn(NULL)(NULL)right$(NULL)chr$closestr$atn(NULL)atn":[129]l[178]0 [164] 21
590 [139] [195](p$(l))[179]54 [167] p$(l)[178]p$(l)[170]" ":[137] 590
600 [130]
610 [160]8:[160]15:se[178]1:[142]